home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / gfx / 3d / lsocket.lha / Install-Client < prev    next >
Text File  |  1996-12-06  |  4KB  |  145 lines
  1. ; ************************************************
  2. ; *
  3. ; * LightSocket Client HD Install Script
  4. ; *
  5. ; * $VER: Install-LightSocket_Client 1.0
  6. ; *
  7. ; * Script written by Graham Waddell
  8. ; *
  9. ; ************************************************
  10. (message
  11.     (cat    "Note: ENLAN support doesn't use a client (yet), but requires that NetRexx be running on the LightSocket machine prior to usage.\n"
  12.             "\nIf you are using ENLAN, you don't need to install anything here.\n\nGo ahead and use LightSocket!"
  13.     )
  14. )
  15.  
  16. (set @app-name        "LightSocket Client Install")
  17. (set @default-dest    "")
  18.  
  19. (set ToolSource        "LightSocket")
  20. (set ToolDirPrompt    "Copy Client to...?")
  21. (set ToolCopyPrompt    "Copying Client...")
  22. (set ClientSource    (tackon (ToolSource) "Clients") )
  23.  
  24. (set ClientHelp "Select the network you are using so that the proper client program can be installed.")
  25.  
  26. (set clientnum
  27.     (askchoice
  28.         (prompt "Which Network are you using?")
  29.         (choices "AmiTCP" "Enlan" "Envoy" "ParNet")
  30.         (help ClientHelp)
  31.         (default 0)
  32.     )
  33. )
  34.  
  35. (set clientname (select clientnum "AmiTCP.wnd" "Enlan.wnd" "Envoy.wnd" "ParNet.wnd") )
  36.  
  37. (set clientdirhelp
  38.     (cat
  39.         "It is recommended that the Envoy client be installed in WBStartup."
  40.         "\n\nThe AmiTCP client should be put in AmiTCP:bin.\nAn entry in the AmiTCP:db/inetd.conf &\nAmiTCP:db/services files on each machine (including Local) as well.)"
  41.     )
  42. )
  43.  
  44. (set ClientDir
  45.     (askdir
  46.         (prompt ToolDirPrompt)
  47.         (help    clientdirhelp)
  48.         (default (select clientnum "AmiTCP:bin" "Enlan:Servers" "SYS:WBStartup" "SYS:Tools"))
  49.     )
  50. )
  51.  
  52. (copyfiles
  53.     (prompt    ToolCopyPrompt)
  54.     (help    @copyfiles-help)
  55.     (source    (tackon ClientSource clientname))
  56.     (dest    ClientDir)
  57.     (infos)
  58. )
  59.  
  60. (set clientnumhelp
  61.     (cat
  62.         "It is recommended that the service port number\n"
  63.         "be left at 2501, but if that conflicts with your\n"
  64.         "own personal setup, change it on ALL machines\n"
  65.         "that will be using LightSocket."
  66.     )
  67. )
  68.  
  69. (if (= clientnum 0)
  70.     (set portnum (asknumber
  71.         (help        clientnumhelp)
  72.         (prompt        "What port number should the LightSocket service use?")
  73.         (range         2501 8999)
  74.         (default    2501)
  75.     ) )
  76. )
  77.  
  78. (set ServicesText (cat "wavenet         " portnum "/tcp\n") )
  79.  
  80. (set clientsvchelp
  81.     (cat
  82.         "This will append the AmiTCP:db/services file with\n"
  83.         "an entry for LightSocket.\n"
  84.     )
  85. )
  86.  
  87. (if (= clientnum 0)
  88.     (textfile
  89.         (help        clientsvchelp)
  90.         (prompt        "About to append services file...")
  91.         (dest        "AmiTCP:db/services")
  92.         (include    "AmiTCP:db/services")
  93.         (append        ServicesText)
  94.         (confirm) )
  95. )
  96.     
  97. (set InetdText ( cat "wavenet   stream      tcp wait root " (tackon ClientDir clientname) "\n" ) )
  98.  
  99. (set clientinethelp
  100.     (cat
  101.         "This will append the AmiTCP:db/inetd.conf file with\n"
  102.         "an entry for LightSocket.\n"
  103.  
  104.     )
  105. )
  106.  
  107. (set clientParNethelp
  108.     (cat
  109.         "This will append the Boot.Client or the\n"
  110.         "Boot.Host file with an entry for LightSocket.\n"
  111.     )
  112. )
  113.  
  114. (if (= clientnum 3)
  115.     (set ParNetAsk (askbool
  116.         (help        clientParNethelp)
  117.         (prompt        "Would you like to run the ParNet client in your ParNet Boot.Client or Boot.Host script?")
  118.         (default    1)
  119.         )
  120.     )
  121. )
  122.  
  123. (set ParNetText (tackon ClientDir clientname) )
  124.  
  125. (if ( (= clientnum 4) && (= ParNetAsk 1) ) (
  126.     (set ParNetScriptFile
  127.         (askfile
  128.             (prompt     "Where is your ParNet Boot script?")
  129.             (help        clientParNethelp)
  130.             (default     "Sys:Boot.Client")
  131.         )
  132.     )
  133.     (textfile
  134.         (help        clientParNethelp)
  135.         (prompt        "About to append ParNet Boot script...")
  136.         (dest        ParNetScriptFile)
  137.         (include    ParNetScriptFile)
  138.         (append        ParNetText)
  139.         (confirm) )
  140.     )
  141. )
  142.     
  143.  
  144. (message "\n\nLightSocket Client installed. Make sure that\nit is run before LightSocket!\n")
  145.